home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
surfsrc3.zip
/
MENUMSG.INC
< prev
next >
Wrap
Text File
|
1989-08-10
|
243b
|
12 lines
procedure MENUMSG (Msg: text80);
{ Output a message in the main menu, showing current status }
var i: integer;
begin
gotoXY (1,15);
write (Msg);
for i := 1 to (50-length(Msg)) do
write (' ');
end; { procedure MENUMSG }